home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / Python 1.3.3 / Python 133 SRC / Tools / modulator / ScrolledListbox.py < prev    next >
Text File  |  1995-12-21  |  1KB  |  38 lines
  1. # A ScrolledList widget feels like a list widget but also has a
  2. # vertical scroll bar on its right.  (Later, options may be added to
  3. # add a horizontal bar as well, to make the bars disappear
  4. # automatically when not needed, to move them to the other side of the
  5. # window, etc.)
  6. #
  7. # Configuration options are passed to the List widget.
  8. # A Frame widget is inserted between the master and the list, to hold
  9. # the Scrollbar widget.
  10. # Most methods calls are inherited from the List widget; Pack methods
  11. # are redirected to the Frame widget however.
  12.  
  13. from Tkinter import *
  14. from Tkinter import _cnfmerge
  15.  
  16. class ScrolledListbox(Listbox):
  17.     def __init__(self, master=None, cnf={}):
  18.         cnf = _cnfmerge(cnf)
  19.         fcnf = {}
  20.         vcnf = {'name': 'vbar',
  21.             Pack: {'side': 'right', 'fill': 'y'},}
  22.         for k in cnf.keys():
  23.             if type(k) == ClassType or k == 'name':
  24.                 fcnf[k] = cnf[k]
  25.                 del cnf[k]
  26.         self.frame = Frame(master, fcnf)
  27.         self.vbar = Scrollbar(self.frame, vcnf)
  28.         cnf[Pack] = {'side': 'left', 'fill': 'both', 'expand': 'yes'}
  29.         cnf['name'] = 'list'
  30.         Listbox.__init__(self, self.frame, cnf)
  31.         self['yscrollcommand'] = (self.vbar, 'set')
  32.         self.vbar['command'] = (self, 'yview')
  33.  
  34.         # Copy Pack methods of self.frame -- hack!
  35.         for m in Pack.__dict__.keys():
  36.             if m[0] != '_' and m != 'config':
  37.                 setattr(self, m, getattr(self.frame, m))
  38.